home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung CD 2 (Tewi)(1994).iso
/
c
/
compcomp
/
awk
/
rantest.awk
< prev
next >
Wrap
Text File
|
1990-02-07
|
287b
|
15 lines
# count the number of random numbers in ten bins
BEGIN {
srand()
for (i = 0; i < 20; i++) {
for (j = 0; j < 1000; j++)
x[int(10 * rand())]++
printf(".");
}
printf("\n");
for (i in x)
printf(" %s: %6d\n", i, x[i])
}